home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / LISP Related / LISP Goodies / oodles-of-utils / NotInROM / +Packages.lisp < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.1 KB  |  28 lines  |  [TEXT/CCL2]
  1. ;; -*- package: NotInROM -*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;; +Packages.Lisp
  4. ;;
  5. ;; Copyright © 1992 Northwestern University Institute for the Learning Sciences
  6. ;; All Rights Reserved
  7. ;;
  8. ;; author: Michael S. Engber
  9. ;;
  10. ;; Provides missing Package Routines
  11. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  12.  
  13. (eval-when (:compile-toplevel :load-toplevel :execute)
  14.   (require    :NotInROM-u)
  15.   (in-package :NotInROM))
  16.  
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18.  
  19. (deftrap-NotInROM _IUStringOrder :signed-integer ((aStr (:string 255))  (bStr (:string 255))
  20.                                                   (aScript :ScriptCode) (bScript :ScriptCode)
  21.                                                   (aLang :LangCode)     (bLang :LangCode))
  22.   (#_IUTextOrder (%inc-ptr aStr)           (%inc-ptr bStr)
  23.                  (%get-unsigned-byte aStr) (%get-unsigned-byte bStr)
  24.                  aScript                   bScript
  25.                  aLang                     bLang))
  26.  
  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28.